home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / T U R B O Language / Turbo Pascal V7.0 / DOCDEMO.ZIP / STRMERR.PAS < prev    next >
Pascal/Delphi Source File  |  1992-10-30  |  1KB  |  41 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Vision 2.0 Demo                        }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. unit StrmErr;
  9.  
  10. interface
  11.  
  12. uses Objects;
  13.  
  14. type
  15.   PMsgStream = ^TMsgStream;
  16.   TMsgStream = object(TBufStream)
  17.     procedure Error(Code, Info: Integer); virtual;
  18.   end;
  19.  
  20.  
  21. implementation
  22.  
  23. uses MsgBox;
  24.  
  25. const
  26.   MsgString: array[-6..-1] of String =
  27.     ('Put of unregistered type %d', 'Get of unregistered type %d',
  28.     'Write error %d; cannot expand stream', '%d Read beyond end of stream',
  29.     'Cannot initialize stream, code %d', 'Stream access error %d');
  30.  
  31. procedure TMsgStream.Error(Code, Info: Integer);
  32. var
  33.   LongInfo: Longint;
  34. begin
  35.   inherited Error(Code, Info);
  36.   LongInfo := Longint(Info);
  37.   MessageBox(MsgString[Code], @LongInfo, mfError or mfOKButton);
  38. end;
  39.  
  40. end.
  41.